﻿Public Class Personaje
    'Propiedades:
    Private nombre As String
    Private alineamiento As Integer
    Private nivel As Integer
    Private claseArmadura As Integer
    Private aventura As Aventura
    Private aCombates As New ArrayList()
    Private aCaracterisitcas As New ArrayList()

    'Constructor
    Public Sub New(ByVal nombre As String, ByVal alineamiento As Integer, ByVal nivel As Integer, ByVal armadura As Integer, ByVal aventura As Aventura, ByVal combates As ArrayList, ByVal caract As ArrayList)
        MyBase.New()
        Me.nombre = nombre
        Me.alineamiento = alineamiento
        Me.nivel = nivel
        Me.claseArmadura = armadura
        Me.aventura = aventura
        Me.aCombates = combates
        Me.aCaracterisitcas = caract
    End Sub


    'Metodos:

    '________SETTERS_________

    Public Sub setNombre(ByVal nombre As String)
        Me.nombre = nombre
    End Sub
    Public Sub setAlineamiento(ByVal alineamiento As Integer)
        Me.alineamiento = alineamiento
    End Sub
    Public Sub setNivel(ByVal nivel As Integer)
        Me.nivel = nivel
    End Sub
    Public Sub setCA(ByVal claseArmadura As Integer)
        Me.claseArmadura = claseArmadura
    End Sub
    Public Sub setCombate(ByVal combate As Combate)
        aCombates.Add(combate)
    End Sub
    Public Sub setCaracterísticas(ByVal caracteristica As Integer)
        aCaracterisitcas.Add(caracteristica)
    End Sub

    '________GETTERS_________
    Public Function getNombre() As String
        Return Me.nombre
    End Function
    Public Function getAlineamiento() As String
        Return Me.alineamiento
    End Function
    Private Function getNivel() As Integer
        Return Me.nivel
    End Function
    Private Function getClaseArmadura() As Integer
        Return Me.claseArmadura
    End Function
    Private Function getAventura() As Aventura
        Return Me.aventura
    End Function
    Private Function getCombates() As ArrayList
        Return Me.aCombates
    End Function
    Private Function getCaracterisitcas() As ArrayList
        Return Me.aCaracterisitcas
    End Function

End Class
